home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / COMPILE.SRC < prev    next >
Text File  |  1990-11-06  |  2KB  |  78 lines
  1. ;\|     COMP2.SRC
  2. define(CUR.DATE|S|8||)
  3. define(CUR.TIME|T|8||)
  4. define(CHOICE|N|1||)
  5. define(CNTR|N|2||)
  6. define(MENULIST|A|60||20)
  7. define(PRG.NAME|A|40||)
  8. define(CMD.LINE|A|40||)
  9. define(OK|A|1||)
  10. define(MEMORY|A|1||)
  11. define(CO_CODE|A|2||)
  12. define(LMENU|A|1||)
  13. define(FILE_NAME|A|12||)
  14. define(EXTENSION|A|4||)
  15. define(SEARCH_FILE|A|12||)
  16. define(CONTINUE|N|1||)
  17. define(FILE_MENU|A|20||120)
  18. define(NUM_FILES|N|3||)
  19. define(MENU_ROW|A|2||)
  20. define(MENU_COL|A|2||)
  21. define(QUOTIENT|N|5|2|)
  22. define(HELP_LINES|A|70||2)
  23. define(MENU_TITLE|A|14||)
  24. define(MENU_NUM|N|1||)
  25. define(DO_FIXRS|N|1||)
  26. PROG_4:
  27. PRG.NAME = ("")
  28. EXTENSION = ("")
  29. prg.name = ("*")
  30. if PRG.NAME = ("") goto PROGRAM
  31. CMD.LINE = (PRG.NAME)
  32. CNTR =loc("."|PRG.NAME|1||)
  33. if CNTR = (0) then PRG.NAME = (CMD.LINE & ".EDT")
  34. fnsrch(PRG.NAME|F)
  35. if PRG.NAME = ("") do
  36. {
  37. PRG.NAME = (CMD.LINE & ".SRC")
  38. fnsrch(PRG.NAME|F)
  39. }
  40. CNTR =loc("*"|CMD.LINE|1||)
  41. if CNTR <> (0) do
  42. {
  43. pbox(28|17|4|26|N)
  44. EXTENSION = (".EDT")
  45. gosub WC_COMPILE
  46. EXTENSION = (".SRC")
  47. gosub WC_COMPILE
  48. }
  49. else
  50. {
  51. comprg(PRG.NAME|A)
  52. }
  53. goto PROGRAM
  54. WC_COMPILE:
  55. PRG.NAME = (CMD.LINE & EXTENSION)
  56. fnsrch(PRG.NAME|F)
  57. while PRG.NAME <> ("")
  58. {
  59. CNTR =loc(EXTENSION|PRG.NAME|1||)
  60. CNTR = (CNTR + 3)
  61. FILE_NAME =mid(PRG.NAME|1|CNTR|)
  62. pmsg("Compiling: ";FILE_NAME|30|15|N|Y|S|)
  63. trap(I|I)
  64. CNTR = (CNTR - 4)
  65. FILE_NAME =mid(PRG.NAME|1|CNTR|)
  66. FILE_NAME = (FILE_NAME & ".ERR")
  67. comprg(PRG.NAME|D|FILE_NAME)
  68. trap(I|G|WC_ABORT)
  69. fnsrch(PRG.NAME|N)
  70. }
  71. trap(I|D)
  72. ret
  73. WC_ABORT:
  74. trap(I|D)
  75. goto PROGRAM
  76. program:
  77. run("EX")
  78.